home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Rewind.dxr / 00011_track sequence frame.ls < prev    next >
Encoding:
Text File  |  1998-09-14  |  439 b   |  16 lines
  1. on exitFrame
  2.   global gMusicData
  3.   if soundBusy(1) then
  4.     go(the frame)
  5.   else
  6.     DelaySome(15)
  7.     if the currentSound of gMusicData < count(the trackChoice of gMusicData) then
  8.       set the currentSound of gMusicData to the currentSound of gMusicData + 1
  9.       puppetSound("note" & string(getAt(the trackChoice of gMusicData, the currentSound of gMusicData)))
  10.       go(the frame)
  11.     else
  12.       go("keyboard")
  13.     end if
  14.   end if
  15. end
  16.